home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Megahits 6
/
Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso
/
time_ungepackt
/
time_271_300
/
time277
/
hd_frequency
/
hd_frequency_38051.lha
/
Install_HDFrequency
< prev
next >
Wrap
Text File
|
1993-01-07
|
4KB
|
185 lines
; $VER: HDF Install V 1.0 (13.11.93)
; Script to install HD Frequency
(complete 0)
;=============================================================================
(set #bad-kick
(cat "Zur Installation von HD Frequency ist Kickstart 2.04 "
"erforderlich."
))
(set #introduction
(cat "\n\nDieses Programm installiert HD Frequency Release 2 "
"auf Ihre Festplatte."
))
(set #ask-function
(cat "Bitte wählen Sie die Programmversion aus, die "
"Sie installieren möchten :"
))
(set #ask-function-help
(cat "Hier können Sie sich die Programmversion"
"installieren, die für Ihre Anwendungen am besten erscheint."
"Nähere Informationen finden Sie in Ihrem Handbuch."
))
(set #ask-function-1
(cat "68000 1 MB (Chip) Version"
))
(set #ask-function-2
(cat "68000 2 MB Version"
))
(set #ask-function-3
(cat "68020 2 MB Version"
))
(set #ask-function-4
(cat "68020 2 MB 3 Stimmen Version (l)"
))
(set #which-disk
(cat "Wohin soll HD-Frequency installiert werden ?"
))
(set #which-disk-help
(cat ""
))
;=============================================================================
; make sure we are running under V37
(if (< (/ (getversion) 65536) 37)
(
(abort #bad-kick)
))
(set old_wb
(cat "Work:"
))
(set old_wb (substr old_wb 0 (- (strlen old_wb) 1)))
(set old_wb (expandpath old_wb))
(user 2)
;=============================================================================
(message #introduction)
(set motorola 0)
(set motorola (askoptions (prompt #ask-function)
(help #ask-function-help)
(choices #ask-function-1 #ask-function-2
#ask-function-3 #ask-function-4
)
(default 1)
)
)
(user 0)
(set old_level @user-level)
;=============================================================================
(if (= (strlen old_wb) 0)
(
(user 2)
(set target (askdir (prompt #which-disk)
(help #askdir-help)
(default "work:")
(disk)
)
)
(user old_level)
)
(
(if (askbool (prompt (#confirm-target old_wb))
(default 1)
)
(
(set target old_wb)
)
(
(set target (askdir (prompt #which-disk)
(help #which-disk-help)
(default old_wb)
(disk)
)
)
))
))
(set @default-dest target)
(set stash_old (tackon target "old")
)
(if (= 1 motorola)
(
(copyfiles (source
(cat "HD_Frequency:HDFrequency_68000"))
(dest (tackon target "HDFrequency"))
)
(copyfiles (source
(cat "HD_Frequency:HDFrequency_68000.info"))
(dest (tackon target "HDFrequency"))
)
))
(if (= 2 motorola)
(
(copyfiles (source
(cat "HD_Frequency:HDFrequency_68000e"))
(dest (tackon target "HDFrequency"))
)
(copyfiles (source
(cat "HD_Frequency:HDFrequency_68000e.info"))
(dest (tackon target "HDFrequency"))
)
))
(if (= 4 motorola)
(
(copyfiles (source
(cat "HD_Frequency:HDFrequency_68020"))
(dest (tackon target "HDFrequency"))
)
(copyfiles (source
(cat "HD_Frequency:HDFrequency_68020.info"))
(dest (tackon target "HDFrequency"))
)
))
(if (= 8 motorola)
(
(copyfiles (source
(cat "HD_Frequency:HDFrequency_68020l"))
(dest (tackon target "HDFrequency"))
)
(copyfiles (source
(cat "HD_Frequency:HDFrequency_68020l.info"))
(dest (tackon target "HDFrequency"))
)
))
; copy drawer icon
(copyfiles (source
(cat "HD_Frequency:HDFrequency.info"))
(dest (tackon target ""))
)
(complete 100)